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. Q ' Abstract. The ALFA laser subsystem uses a 4 watt continuous wave laser beam 

| i to produce an artificial guide star in the mesospheric sodium layer as a reference 

for wavefront sensing. In this article we describe the system design, focusing on 
the layout of the beam relay system. It consists of seven mirrors, four of which are 
motor-controlled in closed loop operation accounting for turbulences inside the dome 
^ ■ and flexure of the main telescope. 

\£) ' The control system features several computers which are located close to analysis 

C**) . and control units. The distribution of the tasks and their interaction is presented, 

' as well as the graphical user interface used to operate the complete system. This is 

followed by a discussion of the aircraft detection system ALIENS. This system shuts 
off the laser beam when an object passes close to the outgoing laser. 
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1. Introduction 

X 

The ALFA project (Adaptive optics with Laser For Astronomy) is a col- 
laboration between the Max-Planck-Institute for Astronomy (MPIA) 
in Heidelberg which supplies the adaptive optics (wavefront sensing and 
correction), and the Max-Planck- Institute for extraterrestrial Physics 
(MPE) who provide the laser guide star (LGS). The complete system 
is installed on the 3.5 m telescope on Calar Alto, Spain. The adaptive 
optics subsystem is described in detail in Kasper et al. (1999), and 
essential aspects of the ALFA Laser are given in Rabien et al. (1999). 
In this contribution we want to give an overview on the technical system 
setup and the design of the laser beam relay. 

Routine operation of the ALFA system is done by Calar Alto staff. 
The user interface and software setup has therefore been designed 
to allow transparent operation without distracting the operator with 
technical details. Still the possibility remains to fine-tune the system 
during operation, as well as to gather analysis data for future improve- 
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ments. The complete system is already available to the astronomical 
community since mid 1998. 

An additional aspect while operating the LGS is to account for 
airplanes crossing the laser beam. The system has been designed such 
that under no circumstances a pilot can be affected by the upgoing laser 
light. For this reason an aircraft detection system has been installed 
which immediately shuts off the laser whenever an object is located 
near the laser beam. 

2. Hardware and Software Setup 

The ALFA laser subsystem has been designed to be computer con- 
trollable in most of its parts. All the control and analysis algorithms 
are implemented on industrial type VME-bus machines running the 
real time operating system VxWorks. For interprocess communication, 
shared memory techniques are used. The experimental physics and 
industrial control system EPICS network is used for inter-machine 
communication using its network database capabilities. This system 
setup provides reliable operation of the laser while still being very 
flexible with respect to system hardware changes. The software con- 
trolling the aircraft detection system is running on a separate Silicon 
Graphics Indigo workstation. All software development is done on a 
SUN workstation which is also used as a file server holding all startup 
files necessary for booting the VME-bus machines. 

Figure 1 shows the locations of the computers and the tasks they 
are fulfilling. All machines are connected using the Calar Alto network 
system which is based on twisted-pair cabling. The VME-bus machines 
have been installed in locations where cable lengths, especially those of 
the analysis tools, could be dimensioned as short as possible in order to 
minimise noise. On each of the separate computers, software watchdogs 
are running which are also visualized in the graphical user interface. In 
the following sections, we will describe the different tasks and provide 
information on their operation. 

2.1. Laser Laboratory 

In the laser laboratory on the coude floor of the 3.5m telescope, the 
machine VME-lab is located. It controls and monitors the two main 
lasers, their beam properties, and the initial beam injection into the 
relay system. The tasks running on this computer can be summarized 
as follows: 

— Pump laser status monitoring 
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Figure 1. Positions of the beam relay mirrors and general location and tasks of 
the different computers. All machines are connected using the Calar Alto network 
system. 



— Dye Laser frequency adjustment 

— Collimation of pilot and dye laser beams 

— Control of the polarization state of the dye laser beam 

— Initial beam injection into coude path and beam alignment 

On the optical bench in the laser laboratory, the beam passes a 
water-cooled shutter, a quarter-wave plate, and a pre-expander. A beam- 
splitter and two additional mirrors are used to direct a pilot beam 
into the path. This beam consists of a small fraction of laser light 
coupled out from the pump laser and is used for the lower loop which 
is described in section 2.2.1. The two mirrors MCI and MC2 are used 
for centering and pointing the dye laser and pilot beams into the 
relay. The hardware installed on the optical bench for adjusting the 
collimation of both lasers, the polarization state using a rotatable A/4- 
plate and the initial beam alignment consists of two Newport MM 4005 
motor controllers which are connected to the VME-bus machine using 
RS 232C serial lines. Each of these controllers supplies connections to 
four independent motors. 

In Figure 2 the software control window of the laser laboratory 
is shown. These components have been put in a separate window to 




minimise confusion on the main GUI since under normal operating con- 
ditions, their values need not be modified. To the lower left, the control 
parameters of the pump laser are displayed continuously. The focus of 
the pilot beam can be adjusted to properly focus on the lower loop 
detectors. On the right hand side, frequency tuning and modulation 
of the ring dye laser are performed, which are necessary for different 
experiments. Those are described in Davies et al. (1999) in this volume. 

2.2. Beam Relay 

The relay optics which transport the beam from the coude lab to the 
launch telescope are one of the most important parts of the laser system. 
They are continually undergoing revision, not only to increase their 
effectiveness, but also to make them simpler for guest observers to 
use. Figure 1 shows the path taken by the laser as it is directed by 
a succession of actively controlled mirrors. A shorter path with fewer 
reflections was considered, but involved directing the laser through the 
centre of the dome where it was not possible to baffle it; it was rejected 
due to the severe implications for both safety and beam turbulence. To 
offset the loss from so many components in the path chosen, all mirror 
surfaces are dielectric broadband coated, and transmissive elements 
have an anti-reflection coating optimised to 589 nm. 
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The complete relay system is controlled by the machine VME-cass 
which is mounted on to the Cassegrain flange. The purpose is to keep 
the beam well aligned in the beam relay system and to reduce beam 
jitter. A 16 channel analog-digital converter digitizes position signals 
and feeds a Newport PM 500 motion controller with corrective mirror 
motion commands. 

The relay system consists of a total of six mirrors. The two-axis 
tracking mirror S5 and S4 on the declination axis are part of the original 
coude train. Mirror MT1, the declination axis pick-off, marks the end 
of the lower loop. MT2 is a fixed mirror that directs the beam into the 
upper loop, consisting of mirrors MT3 and MT4. Before use, the entire 
relay must be aligned. The initial alignment, which is only needed at the 
beginning of an observing run, must be done manually. A set of 5 video 
cameras has been installed at critical points to assist with this. During 
an observing run, alignment is done automatically by two control loops 
which are described in the following sections. The control parameters 
for the loops can be adjusted during operation using a separate control 
window. 

2.2.1. Lower Loop 

A " lower guide" control loop is running on VME-cass to keep the laser 
beam well aligned on the coude axis. Inside the yoke, all degrees of 
freedom (parallel and angular displacement) are monitored using po- 
sition sensitive devices (PSD's) which are fed by the pilot laser beam. 
The analog signals from the PSD's are digitized at a rate of 1 kHz. The 
difference of those signals to calibrated positions are used in a closed 
loop operation to move the mirrors ESD and MT1 (which are located 
in the laser laboratory and on the declination axes, respectively; see 
Figure 1) such that proper beam alignment is assured. 

The S5 mirror is part of the original coude path of the telescope 
and has been incorporated in the laser beam relay. It is fully controlled 
by the telescope control system. During normal operation when the 
telescope is tracking on a scientific target, tracking errors of the mirror 
have to be accounted for by the lower guide control loop. In addition, 
the motion of the coude mirror is not continuous but overlayed with 
phases of fast motion on timescales of ~5 seconds which have to be 
corrected as well. 

A complication for the lower loop implementation is due to the fact 
that when slewing the telescope to a new object, the S5 mirror is not 
fast enough to keep track with the slewing motion of the telescope. 
Depending on the relative offset, it takes up to one minute until tracking 
of the S5 mirror proceeds. During this phase, no proper beam alignment 
is assured and therefore there remains the possibility that the laser 
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beam may leave the beam relay path. Therefore, the status of the S5 
mirror is monitored in addition to the total intensity and position of 
the pilot beam. This information is provided by the telescope control 
system using an EPICS network variable. 

When either the intensity drops below normal values, the position 
signal is lost or the status of the S5 mirror indicates slewing of the 
telescope, the dye laser beam is shut off in the laser laboratory. When 
slewing of the S5 mirror is finished, a scanning phase begins to auto- 
matically realign the pilot beam. Only when the intensity and position 
signals indicate proper alignment is the shutter of the dye laser opened 
again. 

2.2.2. Upper Loop 

Once the laser beam is picked off the declination axes, it enters the 
"upper loop". This loop provides the final centering and alignment of 
the beam in the relay. It runs at high frequencies (~100 Hz) to be able to 
correct for beam jitter introduced by turbulent air along the relay. The 
beam position and angular displacement are measured directly below 
the launch telescope using a PSD and a triple-prism detector which 
sample the dye laser itself. Just like the "lower loop", the digitized 
values of the detectors are used to calculate correction commands for 
the two fast steering mirrors MT3 and MT4. 

When the 3.5 m telescope is slewed to positions at extremely low 
altitudes or hour angles, flexure of the main telescope body becomes 
an important issue. Even when properly aligned on the coude path, the 
beam may not hit the secondary of the launch telescope perfectly. To 
account for these extreme telescope positions, a scanning phase similar 
to the one of the lower loop is planned to be implemented in the near 
future. 

2.2.3. Baffling 

The laser light passes through the dome from the exit of the laser lab- 
oratory up to the main body of the telescope. Temperature differences 
of several degrees are common between the surrounding air and the 
main body of the telescope. This results in turbulent air which distorts 
laser beam quality. In order to enhance beam quality, most of the beam 
relay system has therefore been baffled using black anodized aluminum 
tubes. This also serves as a safety precaution to prevent persons from 
looking directly into the collimated beam. 

In Figure 3 we show a photograph of the first beam relay mirror S5 
with the baffles coming from the laser laboratory and going to the main 
body of the telescope into the yoke. The baffle coming from the laser 
lab is closed by a window on the optical bench in the laser laboratory 



Figure 3. The coude mirror S5 with the baffles coming from the laser lab (bottom) 
and going to the telescope yoke (right). 

to prevent turbulent air streaming from the warmer laser lab to the S5 
mirror due to a chimney effect. This mirror and its support itself are 
also planned to be covered completely. 

2.3. Launch Telescope 

The launch telescope (50 cm primary and 5 cm secondary mirrors) is 
situated 2.9 m off-axis from the main telescope primary. It is an afocal 
Galilean-type beam expander through which the laser can be projected 
both on- and off-axis. The main disadvantage of launching on-axis is the 
power lost due to the obscuration by the secondary mirror. The power 
loss is 1.5-3% depending on the diameter of the exit beam, which can 
be varied in the range 24-49 cm by adjusting the pre-expander. More 
significant power loss is from the edges when the beam diameter is 
similar to that of the primary, but this does not affect the central 
intensity of the resulting LGS which is the important parameter for 
good adaptive optics correction. 

The secondary mirror of the launch telescope is mounted on a piezo 
platform used for pointing the laser at science targets. It has a full field 
of view of 50", with a positional accuracy of ~0.05" and a maximum 
steering frequency of 30 Hz. Focussing the laser in the mesosphere is 
done using a stepper motor with a resolution of ~500 m in height. In 
the near future, a link from the AO bench will be installed providing 
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LGS tip/tilt information so that the mirror can be used to compensate 
for beam jitter introduced in the atmosphere. 

The VME-tel machine is located in a rack next to a analysis bread- 
board mounted just below the entrance of the launch telescope. On 
this breadboard, several analysis tools are installed which are either 
controlled via serial lines or whose analog outputs are digitized by a 
16 channel 12 bit analog-digital converter. In addition, the secondary 
mirror of the launch telescope is controlled. The different tools are: 

— Offline: Power measurement 

— Offline: Beam collimation 

— Polarization status 

— Beam wavefront 

— Tip Tilt of secondary 

— Focus of launch telescope 

Immediately before being projected into the atmosphere, the quality 
of the beam can be checked by a diagnostics bench. The offline analysis 
tools are inserted using a linear stage which moves mirrors to reflect 
the laser light onto them. The linear stage is controlled by a Newport 
PM 500 motion controller. The polarization state is measured online 
with a division-of-amplitude device mounted near the secondary mirror 
of the launch telescope. On the specific layout of the analysis tools and 
measurement results, see Rabien et al. (1999) in this volume. 

2.4. Graphical User Interface 

The complete laser system is controlled with a graphical user interface 
(GUI). The GUI runs on the SUN workstation located in the laser 
lab and can be displayed on any workstation or X- Terminal on Calar 
Alto. During an observing run, control is performed using a separate 
X- Terminal in the control room of the telescope. 

The GUI (Figure 4) has been designed such as to keep the abstrac- 
tion level as low as possible in order to perform transparent operation. 
The several components of the laser system are visualized, from the 
laser laboratory to the lower right to the launch telescope at the upper 
left. All mirrors and other motor controlled devices can be moved using 
sliders. As a result of any slider movement, an EPICS variable is set 
which is monitored on the VME-bus machines which then command 
the motor movements. 
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Figure 4- The graphical user interface used to control the laser system. 



The two control loops and the signals of the beam position mea- 
surement devices are visualized in the central part of the GUI. Control 
parameters for the loops can be adjusted using a separate window, 
which is only necessary when reconfiguring the laser system or at the 
beginning of an observing run. The polarization status is displayed on 
the GUI to the right of the launch telescope, as well as the offline power 
measurement. 

The signals of the various CCD cameras that have been installed 
along the beam relay path are displayed on a video monitor which is 
located in the control room next to the X- Terminal. In the GUI, it is 
possible to select which camera signal to be displayed using the buttons 
with the camera symbol. This enables the operator to check the beam 
position on the separate mirrors for beam alignment purposes. 

In the upper left part, the status of the different computers is dis- 
played using their watchdog programs. This way the user is able to 
check the overall status of the system, enabling him to interfere in case 
of system failures. 



10 



3. Aircraft Detection 

Of particular concern for the safe operation of a LGS adaptive-optics 
system is the protection of aircraft passing the upgoing laser-beam. 
Although the probability of hitting not only the aircraft, but also having 
the pilot look directly into the beam is extremely low, precautions 
have to be taken to avoid this situation because even an expanded 4 
Watt continuous wave laser could affect and distract the pilot for a few 
minutes. The scattered light of such a laser is also too dim to allow the 
pilot to see it before entering the beam. 

Besides reliably detecting objects a useful system is also expected to 
generate only a very limited amount of false alarms, since every alarm 
immediately shuts down the laser beam and with that many minutes 
of integration time of the scientific instrument may be wasted. The 
requirements for the Calar Alto system are a rate of false alarms of 
less than 0.1 per hour. A spotter is not required at Calar Alto since 
the output power of the outgoing laser beam is too low, as opposed to 
pulsed systems with peak powers of up to 1 kW. 

3.1. Visible CCD Detectors 

All aircraft are required to use position and anti collision lights (see 
Federal Aviation Requirements). The anti collision light is a yellow, 
red or white light, flashing with a frequency of 40 to 100 flashes per 
minute. The position lights are red and green lights, located at the tips 
of the wings, and a white light at the tail. The detection system uses a 
CCD camera and an image processing system to detect this radiation. 

Particularly difficult situations occur when the aircraft is passing the 
observatory at a low altitude. The time from entering the field of view 
of the camera to crossing the laser beam may be as low as 2 seconds 
and therefore the reaction time of the system should not be greater 
than 1 second. The frequency of the anti collision light may be too 
low for reliable detection, however, at these low altitudes, the position 
lights are easily visible. These CCD systems can also easily detect some 
satellites at low altitudes. 

3.2. The Aircraft Light Imaging Emergency Notification 
System (ALIENS) 

For the ALFA project, it was decided to mount the CCD camera behind 
the secondary mirror of the main telescope. ALIENS was developed 
by Adaptive Optics Associates, Inc. in Boston, MA for the use on the 
ALFA system and is integrated into the ALFA software in a failsafe way. 
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It is using the EPICS realtime-database to communicate with ALFA 
and the telescope control software. The specifications for ALIENS are: 

— Aircraft viewing angle: < 75° from horizontal plane 

— Range: 0.5 to 30 km 

— Aircraft Velocity: < 250 m/s 

— Operating conditions: Night, Clear Sky 

— Environmental Conditions: Temperature — 10°C to 50° C, Humid- 
ity < 90% 

— Field of View: 10° Radius 

— Rate of False Alarms: < 0.1 per hour 

— Wavelength Range: 600-1000nm 

There are various ways how to detect moving objects in the sky. The 
approach taken by ALIENS is to watch the sky with a CCD camera 
and look at variations between consecutive frames. 

3.2.1. Hardware 

The images analysed by ALIENS are taken with a CCD camera which is 
mounted on the front ring of the telescope behind the secondary mirror. 
The CCD chip has a total of 640x480 pixels. The field of view of the 
camera was chosen to be 20 degrees which is approximately the same 
field of view as seen through the dome slit from behind the secondary. 

The single images are transfered by an optical fiber link from the sec- 
ondary mirror cell to a Silicon Graphics workstation which is equipped 
with a video capture board. There the images are digitized and further 
analysed. In Figure 5 a block diagram of the hardware used in the 
ALIENS system is shown. 

3.2.2. Algorithm for aircraft detection 

The most simple approach to detect moving objects such as airplanes 
on optical images is to use their relative motion against the stars. To 
do this, two consecutive frames received from the CCD camera are 
subtracted from each other. As the 3.5m telescope on Calar Alto is 
mounted equatorially, objects like stars should cancel out perfectly 
when subtracting two frames since there is no field rotation. So when- 
ever there is a significant difference between two frames, this can be 
taken as a possible detection of an aircraft in the field of view. 
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Figure 5. Block diagram of the ALIENS aircraft detection system. Behind the sec- 
ondary of the 3.5m telescope, the CCD camera with its control hardware is located. 
Via an optical fibre link, the video signals as well as the serial control connection 
are connected to a Silicon Graphics workstation located in the laser lab. There the 
control software and aircraft detection algorithm are running. On positive detection, 
an EPICS variable is set which causes the VME-bus computer which controls the 
shutter to send a signal so the shutter is closed. 



There are, however, some problems which forbid this simple ap- 
proach. For instance, slowly moving objects like planets can trigger an 
alarm since they are very bright. Even stars can trigger alarms due to 
scintillation as the transparency of the atmosphere is not constant as 
a function of time and causes the stars to flicker. 

It is therefore necessary to eliminate the signal of bright steady 
objects in a different way. This can be done by calculating a mask from 
a single image in which all bright objects are marked. When calculating 
the difference of two frames, objects that fall into the masked regions 
are neglected. This procedure has proven to nearly eliminate all false 
alarms due to stars. This mask can be recalculated after a specific 
amount of time has elapsed to account for planets, which move slowly 
but significantly during an observing night. 

A second, fixed mask can be used in addition to the one just de- 
scribed. This is useful to account for the different motions of the tele- 
scope itself and the dome. When the dome is starting to block a portion 
of the field of view seen by the CCD camera, faint stars in this area 
which are not included in the first mask will vanish and thus trigger a 
false alarm. Secondly, the Rayleigh backscatter of the projected laser 
beam is usually variable and should be disregarded in the aircraft 
detection algorithm. 

When accounting for both masks in the image subtraction process, 
the final criterion for an aircraft detection is that the difference of the 
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two frames exceeds a certain threshold. This threshold is just slightly 
above the inherent read noise of the CCD chip to be as sensitive as 
possible. When an airplane has been detected, several actions are taken: 
First and most important, the shutter is closed by a software com- 
mand. Since alarms will be generated as long as the airplane is in the 
field of view of the camera, the shutter will be opened again after a 
specified time following the last aircraft alarm. In addition, a warning 
program is started to visually inform the observing astronomer that 
the LGS is not available. Optionally, several frames can be saved in 
order to analyse the data and identify eventually false alarms. This is 
done to further improve the system and its reliability. 




RUNNING 3.50 sec 



Figure 6. The ALIENS graphical user interface. In the most part of the window, the 
frames taken by the CCD camera are displayed. The buttons on the bottom left are 
used to start and stop the system, to pop up a window which controls the software 
parameters, to display a brief description of the usage and to quit the application. 



A graphical user interface has been developed to control the system 
parameters and visually inspect the online data from the camera on 
a computer monitor (see Figure 6). With the computer's X- Window 
system, this user interface allows network transparent operation of the 
system with the data processing taking part on one of the workstations 
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in the laser lab and a control of the system from one of the X-terminals 
in the telescope's control room. On the main user interface for the laser 
control, the status of ALIENS is displayed as well as a visual reminder 
for the laser operator. 

3.3. Operation 

During the acceptance test near Boston, MA, the system was operated 
for 5 hours without generating any false alarm. With the same settings 
of parameters and looking into a different direction it was able to 
reliably detect all of the visible aircraft. This included low altitude 
planes approaching Boston airport, as well as high altitude planes with 
only their anti collision lights visible. 

Since March 1998, the system is in full operation whenever the LGS 
is used on Calar Alto. It proved very reliable during normal observing 
conditions with less than one false alarm per observing night. The false 
alarms are predominantly: 

— Clouds being illuminated by the moon 

— Shooting stars crossing the field of view 

— Beam alignment problems 

Shooting stars cause the laser to be shut off for about 1 second since 
they cross the field of view very rapidly. False alarms due to clouds 
cause no major problem to the operation of the laser since under cloudy 
conditions, usage of the LGS is not possible due to the faint brightness 
of the laser beacon. The laser shutter is closed whenever there are prob- 
lems due to beam alignment. This is caused by the raised background 
in the images because the laser does not shoot into the night sky but is 
blocked by the telescope dome. When doing the initial beam alignment 
in closed dome, it is therefore necessary to stop ALIENS in order to be 
able to visually inspect beam alignment on the telescope dome. 
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1. Implementation 

l \ProvidesFile{klu9.clo}[\f iledate ] 

1.1. Section size commands 

added command: \little. This is identical to \tiny here. Allowed type provided values: 5/6, 
6/7, 7/8, 8/9.5, 9/11, 10/12, 11/13, 12/14, 14/18, 17/22, 20/25. 



2 \renewcommand\normalsize{7, 

3 \9setf ontsize\normalsize\@ixpt{ll}'/, 

4 \abovedisplayskip 8.5\p@ \9plus3\pS \9minus4\p@ 

5 \abovedisplayshortskip \z@ \9plus2\p9 

6 \belowdisplayshortskip 4\p@ \9plus2\p9 \Sminus2\p9 

7 \belowdisplayskip \abovedisplayskip 

8 \let\listi\@listl} 
9 \normalsize 

10 \newcommand\small{°/, 

11 \9setf ontsize\small\0viiipt{9 . 5}°/, 

12 \abovedisplayskip 6\p@ \0plus2\pS \®miims4\p@ 

13 \abovedisplayshortskip \z(3 \9plus\p9 

14 \belowdisplayshortskip 3\p(S \(3plus\p9 \9miims2\p@ 

15 \def \(31isti{\lef tmargin\lef tmargini 

16 \topsep 3\p@ \aplus\p(S \aminus\p@ 

17 \parsep 2\p3 \3plus\p® \aminus\pS 

18 \itemsep \parsep}'/, 

19 \belowdisplayskip \abovedisplayskip 

20 } 

21 \newcommand\f ootnotesize{'/, 

22 \3setf ontsize\f ootnotesize\aviipt{8}'/ 

23 \abovedisplayskip 4\pa \aplus2\pa \aminus2\p3 

24 \abovedisplayshortskip \z3 \9plus\p9 

25 \belowdisplayshortskip 2\p<S \0plus\p® \9minusl\p9 

26 \def \aiisti{\lef tmargin\lef tmargini 

27 \topsep 2\pO \9plus\p@ \<Sminus\pO 

28 \parsep l\p<3 \9plus\p@ \Sminus\pa 

29 \itemsep \parsep}'/, 

30 \belowdisplayskip \abovedisplayskip 



31 } 

32 \newcommand\scriptsize{\9setf ontsize\scriptsize\9vipt\9viipt} 

33 \newcommand\little{\Ssetf ontsize\little\@vpt\9vipt} 

34 \newcommand\tiny{\Ssetf ontsize\tiny\9vpt\9vipt} 

35 \newcommand\large{\9setf ontsize\large\@xpt\@xiipt} 

36 \newcommand\Large{\9setf ont size\Large\9xi ipt{ 14}} 

37 \newcommand\LARGE{\9setf ontsize\LARGE\9xivpt{18}} 

38 \newcommand\huge{\Ssetf ontsize\huge\9xviipt{22}} 

39 \newcommand\Huge{\Ssetf ontsize\Huge\9xxpt{25}} 

1.2. Various values 

Note that \hoff set and \voff set are both compensated. This makes the calculations below 
easier. 

40 \setlength\hof f set{-lin} 

41 \setlength\vof f set{-lin} 

42 \setlength\parindent {14\pS} 

43 \setlength\headheight{12\p9} 
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44 \setlength\headsep {12\p@} 

45 \setlength\topskip {10\p@} 

46 \setlength\f ootskip {25\p@} 

47 \setlength\marginparsep{10pt} 

48 \setlength\marginparpush{5\p@} 

49 \setlength\maxdepth { . 5\topskip} 

50 \setlength\amaxdepth\maxdepth 

51 \setlength\columnsep{10pt} 

52 \setlength\columnseprule{Opt} 

53 \setlength\f boxsep{3pt} 

54 \setlength\fboxrule{.4pt} 

1.3. Textheight and textwidth 

These are the main reason for the existence of these files. For some stupid reason, WT^K. calculates 
textwidth out of \paperwidth. We did want to support letter paper, but our \textwidth is fixed, 
with the margins being calculated. 

Presume \textwidth and \marginparwidth are set in the stylefile, or we're in trouble. The 2pc 
value is used to compensate for the 'dead' corners in most laserprinters. 

Calculations are done 'AtBeginDocument' to allow changes made in the preamble and later on 
in the stylefile. 

55 \newdimen\id@boxheight 

56 \AtBeginDocument{'/, 



57 \setlength\atempdima{\paperwidth}°/, 

58 \addtolength\atempdima{-\textwidth}7, 

59 \divide\@tempdima by 2 

60 \setlength\atempdimb\marginparwidth 

61 \addtolength\3tempdimb\marginparsep 

62 \addtolength\atempdimb{2pc}'/, 

63 \ifdim \@tempdima <\@tempdimb 

64 \asettopoint\atempdimb 

65 \GenericError{Pointsize}{Pointsize Error: Marginpars disabled}{}{You made 

66 your \string\textwidth\space (\the\textwidth) and 

67 \string\marginparwidth (\the\marginparwidth) too wide . \MessageBreak 

68 The allowed value for margin space: (\the\atempdima) . Needed value: 

69 (\the\atempdimb) . \MessageBreak 

70 This is not enough, 

71 so I will set \string\marginparwidth\space to Opt . \MessageBreak 

72 Let's hope that fixes it. 

73 }'/. 

74 \marginparwidth \z@ 

75 \marginparsep \z@ 

76 \fi 

77 \ifdim \atempdima <2pc 

78 \atempdimb=\paperwidth 

79 \advance\atempdimb by -4pc 

80 \asettopoint\atempdimb 

81 \GenericError{Pointsize}{Pointsize Error: Invalid sizes givenMMYou 

82 made your \string\textwidth\space (\the\textwidth) 

83 wider than the available total \MessageBreak 

84 (Which is: \the\atempdimb) . Please press X and try again. 

85 }'/. 

86 \f i 

87 \oddsidemargin \3tempdima 

88 \evensidemargin \@tempdima 
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These calculations are a lot easier, \textheight should have been set already. This does not 
check for the correct placement of the identification line!! 

89 \setlength\atempdima{\paperheight} 

90 \addtolength\(3tempdima{-\f ootskip} 

91 \addtolength\atempdima{-\headheight} 

92 \addtolength\atempdima{-\headsep} 

93 \setlength\atempdimb{\3tempdima} 

94 \addtolength\atempdima{-\textheight} 

95 \divide\@tempdima by 2 

96 \ifdim \@tempdima <2pc 

97 \advance\atempdimb by -4pc 

98 \asettopoint\atempdimb 

99 \GenericError{Pointsize}{Pointsize Error: Invalid sizes givenMMYou 

100 made your \string\textheight\space (\the\textheight) 

101 more than the available total . \MessageBreak 

102 (Which is: \the\9tempdimb) . Please press X and try again. 

103 }'/. 

104 \fi 

105 \setlength\topmargin{\atempdima} 

106 \setlength\idaboxheight{\atempdima} 

107 \advance\id3boxheight by -2pc 

108 } 

109 \setlength\f ootnotesep{6\p<3} 

110 \setlength{\skip\f ootins}{9\p(3 \@plus 4\p0 \0minus 2\p<3} 



1.4. Lists 

List default values 

111 \setlength\partopsep{2\p<3 \0plus l\p@ \0minus l\p<3} 

112 \setlength{\lef tmargini}{l . 9em} 

113 \setlength{\lef tmarginii}{2em} 

114 \setlength{\lef tmarginiii}{l . 7em} 

115 \setlength{\lef tmarginiv}{l . 4em} 

116 \setlength{\lef tmarginv}{lem} 

117 \setlength{\lef tmarginvi}{lem} 

118 \setlength{\labelsep}{.4em} 

119 \setlength{\labelwidth}{\lef tmargini} 

120 \addtolength{\labelwidth}{-\labelsep} 

Note that lists below level 3 do nothing else then readjusting the \labelwidth. This results in 
very small labels for the inner lists. 

121 \def \aiistl{°/, 

122 \lef tmargin \leftmargini 

123 \topsep 8\p@ \0plus2\p0 \@minus2\p<§ 

124 \partopsep 2\p@ \<Splus l\p(3 \9minus l\p@ 

125 \itemsep 4\p(3 \9plus 2\p@ \9minus l\p@ 

126 \parsep 4\p@ \<Splus 2\p@ \<Sminus l\p0 } 

127 \def \01istii{'/, 

128 \leftmargin \lef tmarginii 

129 \labelwidth \lef tmarginii 

130 \advance\labelwidth by -\labelsep 

131 \topsep 4.5\p@ \(3plus 2\p(S \0minus l\p@ 

132 \parsep 2\p(S \<Splus l\p9 \<Sminus I\p0 

133 \itemsep \parsep} 
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134 \def \@listiii{°/, 

135 \leftmargin \lef tmarginiii 

136 \labelwidth \lef tmarginiii 

137 \advance\labelwidth by -\labelsep 

138 \topsep 2\p@ \Oplus l\p<3 \<Sminus l\p@ 

139 \parsep \z3 

140 \partopsep l\p@ \Oplus 0\p3 \9minus l\p@ 

141 \itemsep \topsep} 

142 \def \01istiv{'/, 

143 \setlength{\leftmargin}{\lef tmarginiv}'/, 

144 \setlength{\labelwidth}{\lef tmarginiv}'/, 

145 \addtolength{\labelwidth}{-\labelsep}} 

146 \def \Slistv{'/. 

147 \setlength{\lef tmargin}{\lef tmarginv}'/, 

148 \setlength{\labelwidth}{\lef tmarginv}'/, 

149 \addtolength{\labelwidth}{-\labelsep}} 

150 \def \<31istvi{'/, 

151 \setlength{\lef tmargin}{\lef tmarginvi}"/, 

152 \setlength{\labelwidth}{\lef tmarginvi} 1 /. 

153 \addtolength{\labelwidth}{-\labelsep}} 

154 \let\aiisti\01istl 

155 \31isti 



1.5. Float separation parameters 
Separation on text pages. 

156 \setlength\f Ioatsep{l0\p3 \@plus 2\p<§ \@minus 2\p<8} 

157 \setlength\textf loatsep{18\p@ \@plus 2\p@ \Sminus 4\p<§} 

158 \setlength\intextsep{10\p@ \0plus 2\p@ \Sminus 2\p®} 

159 \setlength\dblf loatsep{10\p<3 \0plus 2\p® \@minus 2\p®} 

160 \setlength\dbltextf loatsep{18\p<3 \0plus 2\p@ \0minus 4\p<3} 

Separation on float pages 

161 \setlength\<3fptop{0\p<3 \<Splus If il} 

162 \setlength\<3fpsep{8\p<3 \@plus 2f il} 

163 \setlength\afpbot{0\p(3 \0plus If il} 

164 \setlength\<3dblfptop{0\p<3 \@plus If il} 

165 \setlength\(3dblfpsep{8\p<3 \@plus 2f il} 

166 \setlength\adblfpbot{0\pa \@plus lfil} 
167 

168 \endinput 



klut9.clo 
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1. Implementation 

l \ProvidesFile{klut9.clo}[\f iledate ] 

1.1. Section size commands 

added command: \little. This is identical to \tiny here. Allowed type provided values: 5/6, 
6/7, 7/8, 8/9, 9/10.5, 10/11.5, 11/13, 12/14, 14/18, 17/22, 20/25. 



2 \renewcommand\normalsize{7, 

3 \3setf ontsize\normalsize\@ixpt{10 . 5}% 

4 \abovedisplayskip 8.5\p@ \9plus3\p@ \@minus4\p@ 

5 \abovedisplayshortskip \z9 \0plus2\p9 

6 \belowdisplayshortskip 4\p@ \9plus2\pa \Sminus2\p9 

7 \belowdisplayskip \abovedisplayskip 

8 \let\listi\@listl} 
9 \normalsize 

10 \newcommand\small{°/, 

11 \9setf ontsize\small\@viiipt{9}'/, 

12 \abovedisplayskip 6\p(S \@plus2\p@ \®miims4\p@ 

13 \abovedisplayshortskip \z(3 \9plus\p9 

14 \belowdisplayshortskip 3\p® \9plus\p9 \9miims2\p9 

15 \def \91isti{\lef tmargin\lef tmargini 

16 \topsep 3\p@ \aplus\p(S \0minus\pS 

17 \parsep 2\p@ \(3plus\p<S \<Sminus\p(S 

18 \itemsep \parsep}'/, 

19 \belowdisplayskip \abovedisplayskip 

20 } 

21 \newcommand\f ootnotesize{'/, 

22 \0setf ontsize\f ootnotesize\(Sviipt{8}'/ 

23 \abovedisplayskip 4\p@ \@plus2\p@ \9minus2\pS 

24 \abovedisplayshortskip \z(3 \9plus\p9 

25 \belowdisplayshortskip 2\p<S \0plus\p® \Ominusl\pa 

26 \def \aiisti{\lef tmargin\lef tmargini 

27 \topsep 2\pO \9plus\p@ \<Sminus\pO 

28 \parsep l\p<3 \9plus\p@ \0minus\p0 

29 \itemsep \parsep}'/, 

30 \belowdisplayskip \abovedisplayskip 



31 } 

32 \newcommand\scriptsize{\(3setf ontsize\scriptsize\9vipt\(3viipt} 

33 \newcommand\little{\@setf ontsize\little\Svpt\9vipt} 

34 \newcommand\tiny{\(Ssetf ontsize\tiny\9vpt\avipt} 

35 \newcommand\large{\asetf ontsize\large\@xpt{ll .5}} 

36 \newcommand\Large{\asetf ont size\Large\@xi ipt{ 14}} 

37 \newcommand\LARGE{\asetf ontsize\LARGE\Sxivpt{18}} 

38 \newcommand\huge{\@setf ontsize\huge\8xviipt{22}} 

39 \newcommand\Huge{\Ssetf ontsize\Huge\axxpt{25}} 

1.2. Various values 

Note that \hoff set and \voff set are both compensated. This makes the calculations below 
easier. 

40 \setlength\hof f set{-lin} 

41 \setlength\vof f set{-lin} 

42 \setlength\parindent {14\p@} 

43 \setlength\headheight{12\pa} 
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44 \setlength\headsep {12\p@} 

45 \setlength\topskip {10\p@} 

46 \setlength\f ootskip {25\p@} 

47 \setlength\marginparsep{10pt} 

48 \setlength\marginparpush{5\p@} 

49 \setlength\maxdepth { . 5\topskip} 

50 \setlength\amaxdepth\maxdepth 

51 \setlength\columnsep{10pt} 

52 \setlength\columnseprule{Opt} 

53 \setlength\f boxsep{3pt} 

54 \setlength\fboxrule{.4pt} 

1.3. Textheight and textwidth 

These are the main reason for the existence of these files. For some stupid reason, WT^K. calculates 
textwidth out of \paperwidth. We did want to support letter paper, but our \textwidth is fixed, 
with the margins being calculated. 

Presume \textwidth and \marginparwidth are set in the stylefile, or we're in trouble. The 2pc 
value is used to compensate for the 'dead' corners in most laserprinters. 

Calculations are done 'AtBeginDocument' to allow changes made in the preamble and later on 
in the stylefile. 

55 \newdimen\id@boxheight 

56 \AtBeginDocument{'/, 



57 \setlength\atempdima{\paperwidth}°/, 

58 \addtolength\atempdima{-\textwidth}7, 

59 \divide\@tempdima by 2 

60 \setlength\atempdimb\marginparwidth 

61 \addtolength\3tempdimb\marginparsep 

62 \addtolength\atempdimb{2pc}'/, 

63 \ifdim \@tempdima <\@tempdimb 

64 \asettopoint\atempdimb 

65 \GenericError{Pointsize}{Pointsize Error: Marginpars disabled}{}{You made 

66 your \string\textwidth\space (\the\textwidth) and 

67 \string\marginparwidth (\the\marginparwidth) too wide . \MessageBreak 

68 The allowed value for margin space: (\the\atempdima) . Needed value: 

69 (\the\atempdimb) . \MessageBreak 

70 This is not enough, 

71 so I will set \string\marginparwidth\space to Opt . \MessageBreak 

72 Let's hope that fixes it. 

73 }'/. 

74 \marginparwidth \z@ 

75 \marginparsep \z@ 

76 \fi 

77 \ifdim \atempdima <2pc 

78 \atempdimb=\paperwidth 

79 \advance\atempdimb by -4pc 

80 \asettopoint\atempdimb 

81 \GenericError{Pointsize}{Pointsize Error: Invalid sizes givenMMYou 

82 made your \string\textwidth\space (\the\textwidth) 

83 wider than the available total \MessageBreak 

84 (Which is: \the\atempdimb) . Please press X and try again. 

85 }'/. 

86 \f i 

87 \oddsidemargin \3tempdima 

88 \evensidemargin \@tempdima 
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These calculations are a lot easier, \textheight should have been set already. This does not 
check for the correct placement of the identification line!! 

89 \setlength\atempdima{\paperheight} 

90 \addtolength\(3tempdima{-\f ootskip} 

91 \addtolength\atempdima{-\headheight} 

92 \addtolength\atempdima{-\headsep} 

93 \setlength\atempdimb{\3tempdima} 

94 \addtolength\atempdima{-\textheight} 

95 \divide\@tempdima by 2 

96 \ifdim \@tempdima <2pc 

97 \advance\atempdimb by -4pc 

98 \asettopoint\atempdimb 

99 \GenericError{Pointsize}{Pointsize Error: Invalid sizes givenMMYou 

100 made your \string\textheight\space (\the\textheight) 

101 more than the available total . \MessageBreak 

102 (Which is: \the\9tempdimb) . Please press X and try again. 

103 }'/. 

104 \fi 

105 \setlength\topmargin{\atempdima} 

106 \setlength\idaboxheight{\atempdima} 

107 \advance\id3boxheight by -2pc 

108 } 

109 \setlength\f ootnotesep{6\p<3} 

110 \setlength{\skip\f ootins}{9\p(3 \@plus 4\p0 \0minus 2\p<3} 



1.4. Lists 

List default values 

111 \setlength\partopsep{2\p<3 \0plus l\p@ \0minus l\p<3} 

112 \setlength{\lef tmargini}{l . 9em} 

113 \setlength{\lef tmarginii}{2em} 

114 \setlength{\lef tmarginiii}{l . 7em} 

115 \setlength{\lef tmarginiv}{l . 4em} 

116 \setlength{\lef tmarginv}{lem} 

117 \setlength{\lef tmarginvi}{lem} 

118 \setlength{\labelsep}{.4em} 

119 \setlength{\labelwidth}{\lef tmargini} 

120 \addtolength{\labelwidth}{-\labelsep} 

Note that lists below level 3 do nothing else then readjusting the \labelwidth. This results in 
very small labels for the inner lists. 

121 \def \aiistl{°/, 

122 \lef tmargin \leftmargini 

123 \topsep 8\p@ \0plus2\p0 \@minus2\p<§ 

124 \partopsep 2\p@ \<Splus l\p(3 \9minus l\p@ 

125 \itemsep 4\p(3 \9plus 2\p@ \9minus l\p@ 

126 \parsep 4\p@ \<Splus 2\p@ \<Sminus l\p0 } 

127 \def \01istii{'/, 

128 \leftmargin \lef tmarginii 

129 \labelwidth \lef tmarginii 

130 \advance\labelwidth by -\labelsep 

131 \topsep 4.5\p@ \(3plus 2\p(S \0minus l\p@ 

132 \parsep 2\p(S \<Splus l\p9 \<Sminus I\p0 

133 \itemsep \parsep} 
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134 \def \@listiii{°/, 

135 \leftmargin \lef tmarginiii 

136 \labelwidth \lef tmarginiii 

137 \advance\labelwidth by -\labelsep 

138 \topsep 2\p@ \Oplus l\p<3 \<Sminus l\p@ 

139 \parsep \z3 

140 \partopsep l\p@ \Oplus 0\p3 \9minus l\p@ 

141 \itemsep \topsep} 

142 \def \01istiv{'/, 

143 \setlength{\leftmargin}{\lef tmarginiv}'/, 

144 \setlength{\labelwidth}{\lef tmarginiv}'/, 

145 \addtolength{\labelwidth}{-\labelsep}} 

146 \def \Slistv{'/. 

147 \setlength{\lef tmargin}{\lef tmarginv}'/, 

148 \setlength{\labelwidth}{\lef tmarginv}'/, 

149 \addtolength{\labelwidth}{-\labelsep}} 

150 \def \<31istvi{'/, 

151 \setlength{\lef tmargin}{\lef tmarginvi}"/, 

152 \setlength{\labelwidth}{\lef tmarginvi} 1 /. 

153 \addtolength{\labelwidth}{-\labelsep}} 

154 \let\aiisti\01istl 

155 \31isti 



1.5. Float separation parameters 
Separation on text pages. 

156 \setlength\f Ioatsep{l0\p3 \@plus 2\p<§ \@minus 2\p<8} 

157 \setlength\textf loatsep{18\p@ \@plus 2\p@ \Sminus 4\p<§} 

158 \setlength\intextsep{10\p@ \0plus 2\p@ \Sminus 2\p®} 

159 \setlength\dblf loatsep{10\p<3 \0plus 2\p® \@minus 2\p®} 

160 \setlength\dbltextf loatsep{18\p<3 \0plus 2\p@ \0minus 4\p<3} 

Separation on float pages 

161 \setlength\<3fptop{0\p<3 \<Splus If il} 

162 \setlength\<3fpsep{8\p<3 \@plus 2f il} 

163 \setlength\afpbot{0\p(3 \0plus If il} 

164 \setlength\<3dblfptop{0\p<3 \@plus If il} 

165 \setlength\(3dblfpsep{8\p<3 \@plus 2f il} 

166 \setlength\adblfpbot{0\pa \@plus lfil} 
167 

168 \endinput 



klulO.clo 
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1. Implementation 

1 \ProvidesFile{klul0.clo}[\filedate ] 

1.1. Section size commands 

added command: \little. This between \scriptsize and \tiny. Allowed type provided 
values: 5/6, 6/7, 7/8, 8/9.5, 9/11, 10/12, 12/14, 14/18, 17/22, 20/25, 25/30. 

2 \renewcommand\normalsize{°/, 



3 \@setf ontsize\normalsize\@xpt\@xiipt 

4 \abovedisplayskip 10\p@ \@plus 2\p@ \@minus5\p@ 

5 \abovedisplayshortskip \z@ \@plus 3\p@ 

6 \belowdisplayshortskip 6\p@ \@plus 3\p@ \@minus3\p@ 

7 \belowdisplayskip \abovedisplayskip 

8 \let\Qlisti\01istI} 
9 \normalsize 

10 \newcommand\small{°/, 

11 \@setfontsize\small\@ixpt{ll}7, 

12 \abovedisplayskip 8.5\p(3 \@plus3\p@ \@mimis4\p@ 

13 \abovedisplayshortskip \z@ \@plus2\p@ 

14 \belowdisplayshortskip 4\p@ \@plus2\p@ \@minus2\p@ 

15 \def \@listi{\lef tmargin\lef tmargini 

16 \topsep 4\p@ \@plus2\p@ \<3minus2\p@ 

17 \parsep 2\p@ \@plus\p<3 \@minus\p@ 

18 \itemsep \parsep}°/ 

19 \belowdisplayskip \abovedisplayskip 

20 } 

21 \newcommand\f ootnotesize{°/, 

22 \0setf ontsize\f ootnotesize\@viiipt{9 . 5} '/, 

23 \abovedisplayskip 6\p@ \@plus2\p@ \@minus4\p@ 

24 \abovedisplayshortskip \z@ \@plus\p@ 

25 \belowdisplayshortskip 3\p@ \@plus\p@ \@mimis2\p@ 

26 \def \@listi{\lef tmargin\lef tmargini 

27 \topsep 3\p@ \@plus\p@ \@mimis\p@ 

28 \parsep 2\p@ \@plus\p@ \@mimis\p@ 

29 \itemsep \parsep}°/, 

30 \belowdisplayskip \abovedisplayskip 

31 } 



32 \newcommand\scriptsize{\@setf ontsize\scriptsize\@viipt\@viiipt}- 

33 \newcommand\little{\@setf ontsize\little\@vipt\@viipt}- 

34 \newcommand\tiny{\@setf ontsize\tiny\@vpt\@vipt> 

35 \newcommand\large{\@seti ontsize\large\@xiipt-[14}-} 

36 \newcommand\Large{\@setf ontsize\Large\@xivpt-[18}-} 

37 \newcommand\LARGE{\@setf ontsize\LARGE\@xviipt{22}} 

38 \newcommand\huge{\@setf ontsize\huge\@xxpt{25}} 

39 \newcommand\Huge{\@setf ontsize\Huge\@xxvpt{30}}- 



3 



1.2. Various values 

Note that \hoffset and \voff set are both compensated. This makes the calculations 
below easier. 

40 \setlength\hof f set{-lin> 

41 \setlength\vof f set{-lin} 

42 \setlength\parindent {14\p@} 

43 \setlength\headheight{12\p@} 

44 \setlength\headsep {12\p@} 

45 \setlength\topskip {10\p@} 

46 \setlength\f ootskip {27.5\p@} 

47 \setlength\marginparsep{10pt} 

48 \setlength\marginparpush{5\p@} 

49 \setlength\maxdepth {.5\topskip} 

50 \setlength\@maxdepth\maxdepth 

51 \setlength\columnsep{10pt}- 

52 \setlength\columnseprule{Opt} 

53 \setlength\fboxsep{3pt} 

54 \setlength\fboxrule{ .4pt} 

1.3. Textheight and textwidth 

These are the main reason for the existence of these files. For some stupid reason, 
calculates textwidth out of \paperwidth. We did want to support letter paper, but our 
\textwidth is fixed, with the margins being calculated. 

Presume \textwidth and \marginparwidth are set in the stylefile, or we're in trouble. 
The 2pc value is used to compensate for the 'dead' corners in most laserprinters. 

Calculations are done 'AtBeginDocument' to allow changes made in the preamble and 
later on in the stylefile. 

55 \newdimen\id@boxheight 

56 \AtBeginDocument{°/, 

57 \setlength\@tempdima{\paperwidth}°/ 

58 \addtolength\@tempdima{-\textwidth}°/, 

59 \divide\@tempdima by 2 

60 \setlength\@tempdimb\marginparwidth 

61 \addtolength\@tempdimb\marginparsep 

62 \addtolength\@tempdimb{2pc}°/, 

63 \ifdim \@tempdima <\@tempdimb 

64 \@settopoint\@tempdimb 

65 \GenericError{Pointsize}{Pointsize Error: Marginpars disabled}{}{You made 

66 your \string\textwidth\space (\the\textwidth) and 

67 \string\marginparwidth (\the\marginparwidth) too wide . \MessageBreak 

68 The allowed value for margin space: (\the\@tempdima) . Needed value: 

69 (\the\@tempdimb) . \MessageBreak 

70 This is not enough, 

71 so I will set \string\marginparwidth\space to Opt . \MessageBreak 

72 Let's hope that fixes it. 
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73 }'/. 

74 \marginparwidth \z@ 

75 \marginparsep \z@ 

76 Yfi 

77 \ifdim \@tempdima <2pc 

78 \@tempdimb=\paperwidth 

79 \advance\@tempdimb by -4pc 

80 \@settopoint\@tempdimb 

81 \GenericError{Pointsize}{Pointsize Error: Invalid sizes givenHMYou 

82 made your \string\textwidth\space (\the\textwidth) 

83 wider than the available total \MessageBreak 

84 (Which is: \the\@tempdimb) . Please press X and try again. 

85 YL 

86 \f i 

87 \oddsidemargin \@tempdima 

88 \evensidemargin \@tempdima 

These calculations are a lot easier, \textheight should have been set already. This does 

not check for the correct placement of the identification line!! 

89 \setlength\@tempdima-[\paperheight} 

90 \addtolength\@tempdima-[-\f ootskip} 

91 \addtolength\@tempdima-[-\headheight} 

92 \addtolength\@tempdima-[-\headsep}- 

93 \setlength\@tempdimb-[\@tempdima} 

94 \addtolength\(3tempdima-[-\textheight} 

95 \divide\@tempdima by 2 

96 \ifdim \@tempdima <2pc 

97 \advance\@tempdimb by -4pc 

98 \©settopoint\@tempdimb 

99 \GenericError{Pointsize}{Pointsize Error: Invalid sizes givenHMYou 

100 made your \string\textheight\space (\the\textheight) 

101 more than the available total . \MessageBreak 

102 (Which is: \the\@tempdimb) . Please press X and try again. 

103 }*/. 

104 \fi 

105 \setlength\topmargin{\@tempdima} 

106 \setlength\id@boxheight{\@tempdima} 

107 \advance\id@boxheight by -2pc 

108 > 

109 \setlength\f ootnotesep{6 . 65\p@} 

110 \setlength{\skip\footinsH9\p© \@plus 4\p@ \@minus 2\p®}- 

1.4. Lists 

List default values 

111 \setlength\partopsep-[2\p@ \@plus l\p@ \@minus l\p@} 

112 \setlength-[\lef tmargini}-[2em]- 

113 \setlength-C\lef tmarginiiH2 . 2em> 
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114 \setlength-[\lef tmarginiiiHl . 87em}- 

115 \setlength-[\leitmarginiv}-{l . 7em}- 

116 \setlength{\lef tmarginvHlem} 

117 \setlength-[\leftmarginviHlem} 

118 \setlength-[\labelsepH.4em}- 

119 \setlength-[\labelwidth}-{\leftmargini} 

120 \addtolength-[\labelwidthH-\labelsep} 

Note that lists below level 3 do nothing else then readjusting the \labelwidth. This 
results in very small labels for the inner lists. 

121 \def\01istl{/. 

122 \leftmargin \leftmargini 

123 \topsep 9\p@ \@plus 3\p@ \@minus 5\p@ 

124 \partopsep 3\p@ \@plus l\p@ \@minus 2\p@ 

125 \itemsep 4.5\p@ \@plus 2\p@ \@minus l\p@ 

126 \parsep 4.5\p@ \@plus 2\p@ \@minus l\p@ } 

127 \def \@listii{"/. 

128 \leftmargin \lef tmarginii 

129 \labelwidth \lef tmarginii 

130 \advance\labelwidth by -\labelsep 

131 \topsep 4.5\p@ \@plus 2\p@ \@minus l\p@ 

132 \parsep 2\p@ \@plus l\p@ \@minus l\p@ 

133 \itemsep \parsep} 

134 \def \@listiii{°/. 

135 \leftmargin \lef tmarginiii 

136 \labelwidth \lef tmarginiii 

137 \advance\labelwidth by -\labelsep 

138 \topsep 2\p@ \@plus l\p@ \@minus l\p@ 

139 \parsep \z@ 

140 \partopsep l\p@ \@plus 0\p@ \@minus l\p@ 

141 \itemsep \topsep} 

142 \def \01istivC'/ t 

143 \setlength-[\leitmargin}-{\lef tmarginiv}-'/, 

144 \setlength-[\labelwidth}-{\lef tmarginiv}-'/, 

145 \addtolength{\labelwidthH-\labelsep}-} 

146 \def \<31istv{'/. 

147 \setlength-C\leftmarginH\lef tmarginv}-'/, 

148 \setlength-[\labelwidth]-{\lef tmarginv}'/, 

149 \addtolength{\labelwidthH-\labelsep}-} 

150 \def \(31istvi{y. 

151 \setlength-[\lei tmarginHMef tmarginvi}'/, 

152 \setlength-[\labelwidth}-{\leftmarginvi]-°/, 

153 \addtolength{\labelwidthH-\labelsep}-}- 

154 \let\<31isti\@listl 

155 \01isti 

1.5. Float separation parameters 
Separation on text pages. 
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156 \setlength\f loatsep{12\p@ \@plus 2\p@ \@minus 2\p@} 

157 \setlength\textf loatsep{20\p@ \@plus 2\p@ \@minus 4\p@} 

158 \setlength\intextsep{12\p@ \@plus 2\p@ \@minus 2\p@} 

159 \setlength\dblfloatsep{12\p@ \@plus 2\p@ \Qminus 2\p@} 

160 \setlength\dbltextfloatsep{20\p@ \@plus 2\p@ \@minus 4\p@} 

Separation on float pages 

161 \setlength\@fptop{0\p@ \®plus lfil} 

162 \setlength\@fpsep{8\p@ \0plus 2f il} 

163 \setlength\@fpbot{0\p@ \@plus lfil} 

164 \setlength\@dblfptop{0\p@ \@plus lfil} 

165 \setlength\@dblfpsep{8\p@ \@plus 2f il} 

166 \setlength\@dblfpbot{0\p@ \@plus lfil} 
167 

168 \endinput 
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1. Implementation 

1 \ProvidesFile{klutl0.clo}[\filedate ] 

1.1. Section size commands 

added command: \little. This between \scriptsize and \tiny. Allowed type provided 
values: 5/6, 6/7, 7/8, 8/9, 9/10.5, 10/11.5, 12/14, 14/18, 17/22, 20/25, 25/30. 

2 \renewcommand\normalsize{°/, 



3 \@setf ontsize\normalsize\@xpt{ll . 5}°/, 

4 \abovedisplayskip 10\p@ \@plus 2\p@ \@mirms5\p@ 

5 \abovedisplayshortskip \z@ \@plus 3\p@ 

6 \belowdisplayshortskip 6\p@ \@plus 3\p@ \@minus3\p@ 

7 \belowdisplayskip \abovedisplayskip 

8 \let\Qlisti\01istI} 
9 \normalsize 

10 \newcommand\small{°/, 

11 \@setfontsize\small\@ixpt{10 . 5}°/, 

12 \abovedisplayskip 8.5\p@ \@plus3\p@ \<3minus4\p@ 

13 \abovedisplayshortskip \z@ \@plus2\p@ 

14 \belowdisplayshortskip 4\p@ \@plus2\p@ \@minus2\p@ 

15 \def \@listi{\lef tmargin\lef tmargini 

16 \topsep 4\p@ \@plus2\p@ \<3minus2\p@ 

17 \parsep 2\p@ \@plus\p@ \@minus\p@ 

18 \itemsep \parsep}°/ 

19 \belowdisplayskip \abovedisplayskip 

20 } 

21 \newcommand\f ootnotesize{°/, 

22 \@setfontsize\iootnotesize\@viiipt{9}% 

23 \abovedisplayskip 6\p@ \@plus2\p@ \@minus4\p@ 

24 \abovedisplayshortskip \z@ \@plus\p@ 

25 \belowdisplayshortskip 3\p(3 \@plus\p@ \@minus2\p@ 

26 \def \@listi{\lef tmargin\lef tmargini 

27 \topsep 3\p@ \@plus\p@ \@minus\p@ 

28 \parsep 2\p@ \@plus\p@ \@minus\p@ 

29 \itemsep \parsep}°/, 

30 \belowdisplayskip \abovedisplayskip 

31 } 



32 \newcommand\scriptsize{\@setf ontsize\scriptsize\@viipt\@viiipt}- 

33 \newcommand\little{\@setf ontsize\little\@vipt\@viipt}- 

34 \newcommand\tiny{\@setf ontsize\tiny\@vpt\@vipt> 

35 \newcommand\large{\@seti ontsize\large\@xiipt-[l4}-} 

36 \newcommand\Large{\@setfontsize\Large\@xivpt-[l8}-} 

37 \newcommand\LARGE{\@setf ontsize\LARGE\@xviipt{22}} 

38 \newcommand\huge{\@setf ontsize\huge\@xxpt{25}} 

39 \newcommand\Huge{\@setf ontsize\Huge\@xxvpt{30}}- 
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1.2. Various values 

Note that \hoffset and \voff set are both compensated. This makes the calculations 
below easier. 

40 \setlength\hof f set{-lin> 

41 \setlength\vof f set{-lin} 

42 \setlength\parindent {14\p@} 

43 \setlength\headheight{12\p@} 

44 \setlength\headsep {12\p@} 

45 \setlength\topskip {10\p@} 

46 \setlength\f ootskip {27.5\p@} 

47 \setlength\marginparsep{10pt} 

48 \setlength\marginparpush{5\p@} 

49 \setlength\maxdepth {.5\topskip} 

50 \setlength\@maxdepth\maxdepth 

51 \setlength\columnsep{10pt}- 

52 \setlength\columnseprule{Opt} 

53 \setlength\fboxsep{3pt} 

54 \setlength\fboxrule{ .4pt} 

1.3. Textheight and textwidth 

These are the main reason for the existence of these files. For some stupid reason, 
calculates textwidth out of \paperwidth. We did want to support letter paper, but our 
\textwidth is fixed, with the margins being calculated. 

Presume \textwidth and \marginparwidth are set in the stylefile, or we're in trouble. 
The 2pc value is used to compensate for the 'dead' corners in most laserprinters. 

Calculations are done 'AtBeginDocument' to allow changes made in the preamble and 
later on in the stylefile. 

55 \newdimen\id@boxheight 

56 \AtBeginDocument{°/, 

57 \setlength\@tempdima{\paperwidth}°/ 

58 \addtolength\@tempdima{-\textwidth}°/, 

59 \divide\@tempdima by 2 

60 \setlength\@tempdimb\marginparwidth 

61 \addtolength\@tempdimb\marginparsep 

62 \addtolength\@tempdimb{2pc}°/, 

63 \ifdim \@tempdima <\@tempdimb 

64 \@settopoint\@tempdimb 

65 \GenericError{Pointsize}{Pointsize Error: Marginpars disabled}{}{You made 

66 your \string\textwidth\space (\the\textwidth) and 

67 \string\marginparwidth (\the\marginparwidth) too wide . \MessageBreak 

68 The allowed value for margin space: (\the\@tempdima) . Needed value: 

69 (\the\@tempdimb) . \MessageBreak 

70 This is not enough, 

71 so I will set \string\marginparwidth\space to Opt . \MessageBreak 

72 Let's hope that fixes it. 
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73 }'/. 

74 \marginparwidth \z@ 

75 \marginparsep \z@ 

76 Yfi 

77 \ifdim \@tempdima <2pc 

78 \@tempdimb=\paperwidth 

79 \advance\@tempdimb by -4pc 

80 \@settopoint\@tempdimb 

81 \GenericError{Pointsize}{Pointsize Error: Invalid sizes givenHMYou 

82 made your \string\textwidth\space (\the\textwidth) 

83 wider than the available total \MessageBreak 

84 (Which is: \the\@tempdimb) . Please press X and try again. 

85 YL 

86 \f i 

87 \oddsidemargin \@tempdima 

88 \evensidemargin \@tempdima 

These calculations are a lot easier, \textheight should have been set already. This does 

not check for the correct placement of the identification line!! 

89 \setlength\@tempdima-[\paperheight} 

90 \addtolength\@tempdima-[-\f ootskip} 

91 \addtolength\@tempdima-[-\headheight} 

92 \addtolength\@tempdima-[-\headsep}- 

93 \setlength\@tempdimb-[\@tempdima} 

94 \addtolength\(3tempdima-[-\textheight} 

95 \divide\@tempdima by 2 

96 \ifdim \@tempdima <2pc 

97 \advance\@tempdimb by -4pc 

98 \©settopoint\@tempdimb 

99 \GenericError{Pointsize}{Pointsize Error: Invalid sizes givenHMYou 

100 made your \string\textheight\space (\the\textheight) 

101 more than the available total . \MessageBreak 

102 (Which is: \the\@tempdimb) . Please press X and try again. 

103 }*/. 

104 \fi 

105 \setlength\topmargin{\@tempdima} 

106 \setlength\id@boxheight{\@tempdima} 

107 \advance\id@boxheight by -2pc 

108 > 

109 \setlength\f ootnotesep{6 . 65\p@} 

110 \setlength{\skip\footinsH9\p© \@plus 4\p@ \@minus 2\p®}- 

1.4. Lists 

List default values 

111 \setlength\partopsep-[2\p@ \@plus l\p@ \@minus l\p@} 

112 \setlength-[\lef tmarginiH2em]- 

113 \setlength-[\lef tmarginiiH2 . 2em> 
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114 \setlength-[\lef tmarginiiiHl . 87em}- 

115 \setlength-[\lef tmarginivHl . 7em}- 

116 \setlength{\lef tmarginvHlem} 

117 \setlength-[\leftmarginviHlem} 

118 \setlength-[\labelsepH.4em}- 

119 \setlength-C\labelwidthH\lef tmargini} 

120 \addtolength-[\labelwidthH-\labelsep} 

Note that lists below level 3 do nothing else then readjusting the \labelwidth. This 
results in very small labels for the inner lists. 

121 \def\01istl{/. 

122 \leftmargin \leftmargini 

123 \topsep 9\p@ \@plus 3\p@ \@minus 5\p@ 

124 \partopsep 3\p@ \@plus l\p@ \@minus 2\p@ 

125 \itemsep 4.5\p@ \@plus 2\p@ \@minus l\p@ 

126 \parsep 4.5\p@ \@plus 2\p@ \@minus l\p@ } 

127 \def \@listii{"/. 

128 \leftmargin \lef tmarginii 

129 \labelwidth \lef tmarginii 

130 \advance\labelwidth by -\labelsep 

131 \topsep 4.5\p@ \@plus 2\p@ \@minus l\p@ 

132 \parsep 2\p@ \@plus l\p@ \@minus l\p@ 

133 \itemsep \parsep} 

134 \def \@listiii{°/. 

135 \leftmargin \lef tmarginiii 

136 \labelwidth \lef tmarginiii 

137 \advance\labelwidth by -\labelsep 

138 \topsep 2\p@ \@plus l\p@ \@minus l\p@ 

139 \parsep \z@ 

140 \partopsep l\p@ \@plus 0\p@ \@minus l\p@ 

141 \itemsep \topsep} 

142 \def \01istivC'/ t 

143 \setlength-[\leitmargin}-{\lef tmarginiv}-'/, 

144 \setlength-[\labelwidth}-{\lef tmarginiv}-'/, 

145 \addtolength{\labelwidthH-\labelsep}-} 

146 \def \<31istv{'/. 

147 \setlength-C\leftmarginH\lef tmarginv}-'/, 

148 \setlength-[\labelwidth]-{\lef tmarginv}'/, 

149 \addtolength{\labelwidthH-\labelsep}-} 

150 \def \(31istvi{y. 

151 \setlength-[\lei tmarginHMef tmarginvi}'/, 

152 \setlength-[\labelwidth}-{\leftmarginvi]-°/, 

153 \addtolength{\labelwidthH-\labelsep}-}- 

154 \let\<31isti\@listl 

155 \(31isti 



1.5. Float separation parameters 
Separation on text pages. 
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156 \setlength\floatsep{12\p@ \@plus 2\p@ \Qminus 2\p@} 

157 \setlength\textf loatsep{20\p@ \@plus 2\p@ \@minus 4\p@} 

158 \setlength\intextsep-[12\p@ \@plus 2\p@ \@minus 2\p@} 

159 \setlength\dblfloatsep-[12\p@ \@plus 2\p(3 \Qminus 2\p@} 

160 \setlength\dbltextf loatsep{20\p@ \®plus 2\p@ \@minus 4\p@} 

Separation on float pages 

161 \setlength\<3fptop{0\p@ \®plus lfil} 

162 \setlength\@fpsep{8\p<3 \0plus 2f il} 

163 \setlength\@fpbot{0\p@ \@plus lfil} 

164 \setlength\@dblfptop-[0\p@ \Splus If il} 

165 \setlength\@dblfpsep{8\p@ \@plus 2f il} 

166 \setlength\@dblfpbot{0\p@ \@plus lfil} 
167 

168 \endinput 
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1. Implementation 

1 \ProvidesFile{klutll.clo}[\filedate ] 

1.1. Section size commands 

added command: \little. This between \scriptsize and \tiny. Allowed type 
provided values: 6/7, 7/8, 8/9, 9/10.5, 10/11.5, 11/12.5, 12/14, 14/18, 17/22, 
20/25, 25/30. 

2 \renewcommand\normalsize{°/ 



3 \@setf ontsize\normalsize\@xipt{12 . 5}°/ 

4 \abovedisplayskip 10\p@ \@plus 2\p@ \@minus5\p@ 

5 \abovedisplayshortskip \z<3 \Qplus 3\p@ 

6 \belowdisplayshortskip 6\p@ \@plus 3\p@ \@minus3\p@ 

7 \belowdisplayskip \abovedisplayskip 

8 \let\<aiisti\<aiistl} 
9 \normalsize 

10 \newcommand\small{7, 

11 \@setf ontsize\small\@xpt{ll . 5}7„ 

12 \abovedisplayskip 9\p@ \0plus3\p@ \0minus4\p@ 

13 \abovedisplayshortskip \z@ \0plus2\p<3 

14 \belowdisplayshortskip 5\p@ \0plus2\p@ \@minus2\p@ 

15 \def \@listi{\lef tmargin\lef tmargini 

16 \topsep 4\p@ \0plus2\p@ \@minus2\p@ 

17 \parsep 2\pQ \@plus\p@ \@minus\p@ 

18 \itemsep \parsep}% 

19 \belowdisplayskip \abovedisplayskip 

20 } 

21 \newcommand\f ootnotesize{°/ 

22 \@setf ontsize\f ootnotesize\@ixpt{10 . 5}7, 

23 \abovedisplayskip 6\p@ \@plus2\p@ \0minus4\p@ 

24 \abovedisplayshortskip \z@ \@plus\p@ 

25 \belowdisplayshortskip 3\p@ \@plus\p@ \@minus2\p@ 

26 \def \(§listi{\lef tmargin\lef tmargini 

27 \topsep 3\p@ \@plus\p@ \<§minus\p@ 

28 \parsep 2\p@ \@plus\p@ \@minus\p@ 

29 \itemsep Xparsep} /, 

30 \belowdisplayskip \abovedisplayskip 
31} 



32 \newcommand\scriptsize{\@setf ontsize\scriptsize\@viiipt{9 . 5» 

33 \newcommand\little{\@setf ontsize\little\@viipt\@viiipt} 

34 \newcommand\tiny{\@setf ontsize\tiny\@vipt\@viipt} 

35 \newcommand\large{\@setf ontsize\large\@xiipt{14}} 

36 \newcommand\Large{\@setf ontsize\Large\@xivpt{18}} 

37 \newcommand\LARGE{\@setf ontsize\LARGE\@xviipt{22}> 

38 \newcommand\huge{\@setf ontsize\huge\@xxpt{25}} 
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39 \newcommand\Huge{\@setf ontsize\Huge\@xxvpt{30}} 

1.2. Various values 

Note that \hoffset and \voffset are both compensated. This makes the 
calculations below easier. 

40 \setlength\hof f set{-lin> 

41 \setlength\vof f set{-lin> 

42 \setlength\parindent {14\p@} 

43 \setlength\headheight{12\p@} 

44 \setlength\headsep {12\p@} 

45 \setlength\topskip {10\p@> 

46 \setlength\f ootskip {27.5\p@} 

47 \setlength\marginparsep{10pt} 

48 \setlength\marginparpush{5\p@} 

49 \setlength\maxdepth {.5\topskip} 

50 \setlength\@maxdepth\maxdepth 

51 \setlength\columnsep{10pt} 

52 \setlength\columnseprule{Opt} 

53 \setlength\f boxsep{3pt} 

54 \setlength\fboxrule{.4pt} 

1.3. Textheight and textwidth 

These are the main reason for the existence of these files. For some stupid reason, 
ETgX calculates textwidth out of \paperwidth. We did want to support letter 
paper, but our \textwidth is fixed, with the margins being calculated. 
Presume \textwidth and \marginparwidth are set in the stylefile, or we're in 
trouble. The 2pc value is used to compensate for the 'dead' corners in most 
laserprinters. 

Calculations are done 'AtBeginDocument' to allow changes made in the preamble 
and later on in the stylefile. 

55 \newdimen\id@boxheight 

56 \AtBeginDocument{7o 

57 \setlength\@tempdima{\paperwidth}°/ 

58 \addtolength\@tempdima{-\textwidth}7o 

59 \divide\@tempdima by 2 

60 \setlength\@tempdimb\marginparwidth 

61 \addtolength\@tempdimb\marginparsep 

62 \addtolength\@tempdimb{2pc} , /. 

63 \ifdim \@tempdima <\@tempdimb 

64 \@settopoint\@tempdimb 

65 \GenericError{Pointsize}{Pointsize Error: Marginpars disabledMMYou made 
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66 your \string\textwidth\space (\the\textwidth) and 

67 \string\marginparwidth (\the\marginparwidth) too wide . \MessageBreak 

68 The allowed value for margin space: (\the\@tempdima) . Needed value: 

69 (\the\@tempdimb) . \MessageBreak 

70 This is not enough, 

71 so I will set \string\marginparwidth\space to Opt . \MessageBreak 

72 Let's hope that fixes it. 

73 n 

74 \marginparwidth \z@ 

75 \marginparsep \z@ 

76 \fi 

77 \ifdim \@tempdima <2pc 

78 \@tempdimb=\paperwidth 

79 \advance\@tempdimb by -4pc 

80 \@settopoint\@tempdimb 

81 \GenericError{Pointsize}{Pointsize Error: Invalid sizes given}-Q{You 

82 made your \string\textwidth\space (\the\textwidth) 

83 wider than the available total\MessageBreak 

84 (Which is: \the\@tempdimb) . Please press X and try again. 

85 >7„ 

86 \f i 

87 \oddsidemargin \@tempdima 

88 \evensidemargin \@tempdima 



These calculations are a lot easier, \textheight should have been set already. 
This does not check for the correct placement of the identification line!! 

89 \setlength\@tempdima{\paperheight} 

90 \addtolength\@tempdima{-\f ootskip} 

91 \addtolength\@tempdima{-\headheight} 

92 \addtolength\@tempdima{-\headsep> 

93 \setlength\@tempdimb{\@tempdima} 

94 \addtolength\@tempdima{-\textheight} 

95 \divide\@tempdima by 2 

96 \ifdim \@tempdima <2pc 

97 \advance\@tempdimb by -4pc 

98 \@settopoint\@tempdimb 



99 \GenericError{Pointsize}{Pointsize Error: Invalid sizes given}{}{You 

100 made your \string\textheight\space (\the\textheight) 

101 more than the available total . \MessageBreak 

102 (Which is: \the\@tempdimb) . Please press X and try again. 

103 >7. 



104 \fi 

105 \setlength\topmargin{\@tempdima} 

106 \setlength\id@boxheight{\@tempdima} 

107 \advance\id@boxheight by -2pc 

108 } 
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109 \setlength\f ootnotesep{6 . 65\p@} 

110 \setlength{\skip\f ootins}{9\p@ \@plus 4\p@ \<§minus 2\p@} 

1.4. Lists 

List default values 

111 \setlength\partopsep{2\p@ \@plus l\p@ \@minus l\p<§} 

112 \setlength{\lef tmargini}{2em)- 
113 \setlength{\lef tmarginii}{2 . 2em> 

114 \setlength{\lef tmarginiiiMl . 87em} 

115 \setlength{\lef tmargini v}{1 . 7em} 

116 \setlength{\lef tmarginvMlem} 

117 \setlength{\lef tmarginvi}{lem} 

118 \setlength{\labelsep}{ .4em> 

119 \setlength{\labelwidthH\lef tmargini} 

120 \addtolength{\labelwidth}{-\labelsep} 

Note that lists below level 3 do nothing else then readjusting the \labelwidth. 
This results in very small labels for the inner lists. 

121 \def \aiistl{7. 

122 \leftmargin \lef tmargini 

123 \topsep 9\p@ \@plus 3\p@ \@minus 5\p@ 

124 \partopsep 3\p@ \@plus l\p@ \@minus 2\p@ 

125 \itemsep 4.5\p@ \@plus 2\p@ \@minus l\p@ 

126 \parsep 4.5\p@ \@plus 2\p@ \@minus l\p@ > 

127 \def \®listii{7, 

128 \leftmargin \lef tmarginii 

129 \labelwidth \lef tmarginii 

130 \advance\labelwidth by -\labelsep 

131 \topsep 4.5\p@ \®plus 2\p@ \@minus l\p@ 

132 \parsep 2\p@ \@plus l\p@ \@minus l\p@ 

133 \itemsep \parsep} 

134 \def \@listiii{7„ 

135 \leftmargin \lef tmarginiii 

136 \labelwidth \lef tmarginiii 

137 \advance\labelwidth by -\labelsep 

138 \topsep 2\p@ \®plus l\p@ \@minus l\p@ 

139 \parsep \z@ 

140 \partopsep l\p@ \@plus 0\p@ \@minus l\p@ 

141 \itemsep \topsep} 

142 \def \@listiv{°/„ 

143 \setlength{\lef tmargin}{\lef tmarginiv}"/, 

144 \setlength{\labelwidth}{\lef tmarginiv} / 

145 \addtolength{\labelwidth}{-\labelsep}> 

146 \def \@listv{°/„ 
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147 \setlength{\lef tmargin}{\lef tmarginv}"/ 

148 \setlength{\labelwidthM\leftmarginv}°/, 

149 \addtolength{\labelwidth}{-\labelsep}> 

150 \def \@listvi{°/„ 

151 \setlength{\lef tmargin}{\lef tmarginvi} / 

152 \setlength.{\labelwidth}{\lef tmarginvi} /. 

153 \addtolength{\labelwidth}{-\labelsep}> 

154 \let\@listi\@listl 
155 \01isti 

1.5. Float separation parameters 
Separation on text pages. 

156 \setlength\f loatsep{12\p@ \@plus 2\p(§ \(Sminus 2\p@} 

157 \setlength\textf loatsep{20\p@ \@plus 2\p@ \@minus 4\p@} 

158 \setlength\intextsep{12\p<3 \@plus 2\p@ \Qminus 2\p(S> 

159 \setlength\dblf loatsep{12\p@ \@plus 2\p@ \@minus 2\p@> 

160 \setlength\dbltextf loatsep{20\p@ \<§plus 2\p@ \@minus 4\p@} 

Separation on float pages 

161 \setlength\@fptop{0\p<3 \@plus If ill 

162 \setlength\@fpsep{8\p@ \@plus 2f il} 

163 \setlength\@fpbot{0\p@ \@plus If ill 

164 \setlength\@dblf ptop{0\p@ \@plus If il} 

165 \setlength\@dblfpsep{8\p@ \@plus 2f il} 

166 \setlength\@dblfpbot{0\pQ \@plus If il} 
167 

168 \endinput 
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1. Implementation 

1 \ProvidesFile{klutl2. clo> [\f iledate ] 

1.1. Section size commands 

added command: \little. This between \scriptsize and \tiny. Allowed type 
provided values: 6/7, 8/9, 9/10.5, 10/11.5, 11/12.5 12/13.5, 14/18, 17/22, 20/25, 
25/30. 



2 \renewcommand\normalsize{% 

3 \@setf ontsize\normalsize\@xiipt{13 . 5}% 

4 \abovedisplayskip ll\p@ \@plus 2\p@ \@minus5\p@ 

5 \abovedisplayshortskip l\p@ \@plus 3\p@ 

6 \belowdisplayshortskip 7\p@ \@plus 3\p@ \@minus3\p@ 

7 \belowdisplayskip \abovedisplayskip 

8 \let\@listi\@listl> 
9 \normalsize 

10 \newcommand\small-[°/o 

11 \@setf ontsize\small\@xipt{12 . 5}% 

12 \abovedisplayskip 8.5\p@ \@plus3\p@ \@minus4\p@ 

13 \abovedisplayshortskip \z@ \@plus2\p@ 

14 \belowdisplayshortskip 4\p@ \@plus2\p@ \@minus2\p@ 

15 \def \@listi{\lef tmargin\leftmargini 

16 \topsep 4\p@ \@plus2\p@ \@minus2\p@ 

17 \parsep 2\p@ \@plus\p@ \@minus\p@ 

18 \itemsep \parsep}% 

19 \belowdisplayskip \abovedisplayskip 

20 } 

21 \newcommand\f ootnotesize{°/ 

22 \@setf ontsize\f ootnotesize\@xpt{ll . 5}% 

23 \abovedisplayskip 6\p@ \@plus2\p@ \@minus4\p@ 

24 \abovedisplayshortskip \z@ \@plus\p@ 

25 \belowdisplayshortskip 3\p@ \@plus\p@ \@minus2\p@ 

26 \def \@listi{\lef tmargin\leftmargini 

27 \topsep 3\p@ \@plus\p@ \@minus\p@ 

28 \parsep 2\p@ \@plus\p@ \@minus\p@ 

29 \itemsep \parsep}% 

30 \belowdisplayskip \abovedisplayskip 
31} 

32 \newcommand\scriptsize{\@setf ontsize\scriptsize\@ixpt{10 . 5}} 

33 \newcommand\little{\@setf ontsize\little\@viiipt{9}} 

34 \newcommand\tiny{\@setf ontsize\tiny\@vipt\@viipt} 
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35 \newcommand\large-[\@setf ontsize\large\@xivpt{18}} 

36 \newcommand\Large{\@setf ontsize\Large\@xviipt{22}} 

37 \newcommand\LARGE{\@setf ontsize\LARGE\@xxpt{25}} 

38 \newcommand\huge{\@setf ontsize\huge\@xxvpt{30}} 

39 \newcommand\Huge-[\@setf ontsize\Huge\@xxvpt{30» 

1.2. Various values 

Note that \hoff set and \voffset are both compensated. This makes the calcula- 
tions below easier. 

40 \setlength\hoff set{-lin} 

41 \setlength\vof f set{-lin} 

42 \setlength\parindent {14\p@} 
43 \setlength\headheight{12\p@> 

44 \setlength\headsep {12\p@} 

45 \setlength\topskip {10\p@} 

46 \setlength\f ootskip {27.5\p@} 
47 \setlength\marginparsep{10pt} 
48 \setlength\marginparpush{5\p@} 

49 \setlength\maxdepth {.5\topskip} 

50 \setlength\@maxdepth\maxdepth 

51 \setlength\columnsep{12pt} 

52 \setlength\columnseprule{Opt} 
53 \setlength\f boxsep{3pt} 

54 \setlength\f boxrule{ . 4pt} 

1.3. Textheight and textwidth 

These are the main reason for the existence of these files. For some stupid reason, 
F/IgX calculates textwidth out of \paperwidth. We did want to support letter paper, 
but our \textwidth is fixed, with the margins being calculated. 

Presume \textwidth and \marginparwidth are set in the stylefile, or we're in 
trouble. The 2pc value is used to compensate for the 'dead' corners in most 
laserprinters. 

Calculations are done 'AtBeginDocument' to allow changes made in the preamble 
and later on in the stylefile. 

55 \newdimen\id@boxheight 

56 \AtBeginDocument{°/ 

57 \setlength\@tempdima{\paperwidth}°/o 

58 \addtolength\@tempdima{-\textwidth} / 
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59 \divide\@tempdima by 2 

60 \setlength\@tempdimb\marginparwidth 

61 \addtolength\@tempdimb\marginparsep 

62 \addtolength\@tempdimb{2pc}°/„ 

63 \ifdim \@tempdima <\@tempdimb 

64 \@settopoint\@tempdimb 

65 \GenericError{Pointsize}{Pointsize Error: Marginpars disabled}{}{You made 

66 your \string\textwidth\space (\the\textwidth) and 

67 \string\marginparwidth (\the\marginparwidth) too wide . \MessageBreak 

68 The allowed value for margin space: (\the\@tempdima) . Needed value: 

69 (\the\@tempdimb) . \MessageBreak 

70 This is not enough, 

71 so I will set \string\marginparwidth\space to Opt . \MessageBreak 

72 Let's hope that fixes it. 

73 }'/. 

74 \marginparwidth \z@ 

75 \marginparsep \z@ 

76 \fi 

77 \ifdim \@tempdima <2pc 

78 \@tempdimb=\paperwidth 

79 \advance\@tempdimb by -4pc 

80 \@settopoint\@tempdimb 

81 \GenericError{Pointsize}{Pointsize Error: Invalid sizes givenMMYou 

82 made your \string\textwidth\space (\the\textwidth) 

83 wider than the available total\MessageBreak 

84 (Which is: \the\@tempdimb) . Please press X and try again. 

85 }% 

86 \f i 

87 \oddsidemargin \@tempdima 

88 \evensidemargin \@tempdima 



These calculations are a lot easier, \textheight should have been set already. This 
does not check for the correct placement of the identification line!! 

89 \setlength\@tempdima{\paperheight} 

90 \addtolength\@tempdima{-\f ootskip} 

91 \addtolength\@tempdima{-\headheight} 

92 \addtolength\@tempdima{-\headsep} 

93 \setlength\@tempdimb{\@tempdima} 

94 \addtolength\@tempdima{-\textheight} 

95 \divide\@tempdima by 2 

96 \ifdim \@tempdima <2pc 

97 \advance\@tempdimb by -4pc 

98 \@settopoint\@tempdimb 
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99 \GenericError{Pointsize}{Pointsize Error: Invalid sizes givenMMYou 

100 made your \string\textheight\space (\the\textheight) 

101 more than the available total . \MessageBreak 

102 (Which is: \the\@tempdimb) . Please press X and try again. 

103 }'/. 

104 \fi 

105 \setlength\topmargin{\@tempdima} 

106 \setlength\id@boxheight{\@tempdima} 

107 \advance\id@boxheight by -2pc 

108 } 

109 \setlength\f ootnotesep{6 . 65\p@} 

110 \setlength{\skip\f ootins}{12\p@ \@plus 4\p@ \@minus 2\p@} 

1.4. Lists 

List default values 

111 \setlength\partopsep{2\p@ \@plus l\p@ \@minus l\p@} 

112 \setlength{\lef tmargini}{2em} 

113 \setlength{\lef tmarginii}{2 . 2em} 

114 \setlength{\lef tmarginiii}{l . 87em} 

115 \setlength{\lef tmarginiv}{l . 7em} 

116 \setlength{\lef tmarginv}{lem} 

117 \setlength{\lef tmarginviMlem} 

118 \setlength{\labelsep>{.4em} 

119 \setlength{\labelwidth}{\lef tmargini} 

120 \addtolength{\labelwidth>{-\labelsep} 

Note that lists below level 3 do nothing else then readjusting the \labelwidth. This 
results in very small labels for the inner lists. 

121 \def \@listl{% 

122 \leftmargin \leftmargini 

123 \topsep ll\p@ \@plus 3\p@ \@minus 5\p@ 

124 \partopsep 4.5\p@ \@plus l\p@ \@minus 2\p@ 

125 \itemsep 6\p@ \@plus 2\p@ \@minus l\p@ 

126 \parsep 6\p@ \@plus 2\p@ \@minus l\p@ > 

127 \def \@listii{°/. 

128 \leftmargin \lef tmarginii 

129 \labelwidth \lef tmarginii 

130 \advance\labelwidth by -\labelsep 

131 \topsep 6\p@ \@plus 2\p@ \@minus l\p@ 

132 \parsep 3\p@ \@plus l\p@ \@minus l\p@ 
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133 \itemsep \parsep} 

134 \def \@listiii{% 

135 \lef tmargin \lef tmarginiii 

136 \labelwidth \lef tmarginiii 

137 \advance\labelwidth by -\labelsep 

138 \topsep 2\p@ \@plus l\p@ \@minus l\p@ 

139 \parsep \z@ 

140 \partopsep l\p@ \@plus 0\p@ \@minus l\p@ 

141 \itemsep \topsep} 

142 \def \@listiv{°/„ 

143 \setlength{\lef tmargin}{\leftmarginiv}°/ 

144 \setlength{\labelwidth}{\leftmarginiv}°/ 

145 \addtolength{\labelwidth}{-\labelsep» 

146 \def \<§listv{ /. 

147 \setlength{\lef tmargin}{\leftmarginv}°/ 

148 \setlength{\labelwidth}{\leftmarginv}°/ 

149 \addtolength{\labelwidth}{-\labelsep» 

150 \def \@listvi{°/„ 

151 \setlength{\lef tmargin}{\leftmarginvi}°/ 

152 \setlength{\labelwidth}{\leftmarginvi}°/ 

153 \addtolength{\labelwidth}{-\labelsep» 
154 \let\@listi\@listl 

155 \@listi 

1.5. Float separation parameters 
Separation on text pages. 

156 \setlength\f loatsep{12\p@ \@plus 2\p@ \@minus 2\p@} 

157 \setlength\textf loatsep{24\p@ \@plus 2\p@ \@minus 4\p@} 

158 \setlength\intextsep{12\p@ \@plus 2\p@ \@minus 2\p@} 

159 \setlength\dblf loatsep{12\p@ \@plus 2\p@ \@minus 2\p©} 

160 \setlength\dbltextf loatsep{24\p@ \@plus 2\p@ \@minus 4\p@} 

Separation on float pages 

161 \setlength\@fptop{0\p@ \@plus If il> 

162 \setlength\@fpsep{10\p@ \@plus 2f il> 

163 \setlength\@fpbot{0\p@ \@plus If il> 

164 \setlength\@dblfptop{0\p@ \@plus If il} 

165 \setlength\@dblfpsep{10\p@ \@plus 2f il} 

166 \setlength\@dblfpbot{0\p@ \@plus If il} 
167 

168 \endinput 



